home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 015 / scriptnx.arc / SCRIPTNX.BAS
Encoding:
BASIC Source File  |  1988-07-29  |  4.7 KB  |  118 lines
  1. 10 'Script Program
  2. 20 CLS
  3. 30 PRINT "Script Downloader Program"
  4. 40 OPEN "LPT1:" AS #1 : WIDTH #1,255
  5. 50 PRINT #1, CHR$(27);"%";CHR$(1);
  6. 60 INPUT "Emphasized (Y/N) ";Y$
  7. 70 IF Y$="Y" OR Y$="y" THEN PRINT#1, CHR$(27);"E"
  8. 80 INPUT "Condensed (Y/N) ";Y$
  9. 90 IF Y$="Y" OR Y$="y" THEN PRINT#1, CHR$(15)
  10. 100 INPUT "Double Strike (Y/N) ";Y$
  11. 110 IF Y$="Y" OR Y$="y" THEN PRINT#1, CHR$(27);"G"
  12. 120 PRINT#1, CHR$(27);"&";CHR$(0);CHR$(33);CHR$(41);
  13. 130 CLS
  14. 140 PRINT "Please wait while I redefine the printer characters..."
  15. 150 FOR N=33 TO 41
  16. 155 PRINT CHR$(N);
  17. 160 FOR M=0 TO 11
  18. 170 READ MM
  19. 180 PRINT#1, CHR$(MM);
  20. 190 NEXT M
  21. 200 NEXT N
  22. 210 PRINT#1, CHR$(27);"&";CHR$(0);CHR$(48);CHR$(125);
  23. 220 FOR N=48 TO 125
  24. 225 PRINT CHR$(N);
  25. 230 FOR M=0 TO 11
  26. 240 READ MM
  27. 250 PRINT#1, CHR$(MM);
  28. 260 NEXT M
  29. 270 NEXT N
  30. 280 PRINT "  Done!":SYSTEM
  31. 290 DATA 139,0,0,1,28,224,0,0,0,0,0,0
  32. 300 DATA 139,0,0,48,192,0,0,48,192,0,0,0
  33. 310 DATA 139,4,36,47,244,36,36,47,244,36,32,0
  34. 320 DATA 139,0,4,34,82,95,242,82,76,32,0,0
  35. 330 DATA 139,0,225,162,228,8,16,32,39,69,135,0
  36. 340 DATA 139,0,6,73,169,145,157,98,5,9,0,0
  37. 350 DATA 139,0,0,0,0,192,200,240,0,0,0,0
  38. 360 DATA 139,0,0,30,97,128,128,0,0,0,0,0
  39. 370 DATA 139,0,0,0,1,1,134,120,0,0,0,0
  40. 380 DATA 139,0,14,115,133,137,145,161,206,112,0,0
  41. 390 DATA 139,0,0,1,33,71,153,225,0,0,0,0
  42. 400 DATA 139,3,69,137,137,137,137,137,137,112,0,0
  43. 410 DATA 139,2,65,129,129,145,145,145,145,110,0,0
  44. 420 DATA 139,8,24,40,72,139,12,56,200,8,0,0
  45. 430 DATA 139,2,113,145,145,145,145,145,142,128,0,0
  46. 440 DATA 139,14,113,145,145,145,145,145,142,64,0,0
  47. 450 DATA 139,0,64,129,130,132,136,144,160,192,0,0
  48. 460 DATA 139,14,113,145,145,145,145,145,158,96,0,0
  49. 470 DATA 139,0,96,144,144,145,146,148,152,240,0,0
  50. 480 DATA 139,0,0,12,108,108,96,0,0,0,0,0
  51. 490 DATA 139,0,0,12,109,110,96,0,0,0,0,0
  52. 500 DATA 139,16,16,40,40,68,68,130,130,128,0,0
  53. 510 DATA 139,8,40,40,40,40,40,40,40,32,0,0
  54. 520 DATA 139,2,130,130,68,68,40,40,16,16,0,0
  55. 530 DATA 139,0,64,129,140,144,144,144,144,96,0,0
  56. 540 DATA 139,62,65,153,165,165,165,189,133,120,0,0
  57. 550 DATA 139,3,12,24,40,72,136,104,24,7,0,0
  58. 560 DATA 139,15,241,145,145,145,145,145,146,108,0,0
  59. 570 DATA 139,30,97,129,129,129,129,129,130,64,0,0
  60. 580 DATA 139,15,241,129,129,129,129,129,142,112,0,0
  61. 590 DATA 139,6,9,121,145,145,129,129,66,2,0,0
  62. 600 DATA 139,7,120,144,144,144,144,128,128,128,0,0
  63. 610 DATA 139,14,50,65,129,129,137,138,142,64,0,0
  64. 620 DATA 139,1,130,124,16,16,16,16,30,113,128,0
  65. 630 DATA 139,0,1,1,129,131,189,193,129,128,128,0
  66. 640 DATA 139,0,6,1,129,129,142,240,128,128,128,0
  67. 650 DATA 139,1,130,124,8,8,20,34,193,1,0,0
  68. 660 DATA 139,3,29,225,1,1,1,1,1,1,0,0
  69. 670 DATA 139,7,56,192,48,14,16,32,192,63,0,0
  70. 680 DATA 139,7,56,192,48,8,4,3,14,240,0,0
  71. 690 DATA 139,14,113,129,129,129,129,129,142,112,0,0
  72. 700 DATA 139,67,142,176,208,136,136,136,136,112,0,0
  73. 710 DATA 139,14,113,129,129,137,134,130,133,121,0,0
  74. 720 DATA 139,67,142,176,208,140,138,137,137,112,0,0
  75. 730 DATA 139,2,1,1,97,145,137,134,128,64,0,0
  76. 740 DATA 139,128,128,131,142,240,128,128,128,128,0,0
  77. 750 DATA 139,14,241,1,1,1,1,1,14,240,0,0
  78. 760 DATA 139,240,14,3,1,2,4,8,48,192,0,0
  79. 770 DATA 139,254,1,2,12,48,14,1,2,252,0,0
  80. 780 DATA 139,1,129,130,68,40,16,44,67,128,0,0
  81. 790 DATA 139,0,132,98,17,17,17,17,17,254,0,0
  82. 800 DATA 139,1,67,133,137,137,145,161,194,128,0,0
  83. 810 DATA 139,0,7,25,225,129,128,128,0,0,0,0
  84. 820 DATA 139,0,128,64,32,16,8,4,2,1,0,0
  85. 830 DATA 139,0,0,1,1,129,135,152,224,0,0,0
  86. 840 DATA 139,8,16,32,64,128,64,32,16,8,0,0
  87. 850 DATA 139,1,1,1,1,1,1,1,1,1,1,1
  88. 860 DATA 139,0,240,248,232,0,0,0,0,0,0,0
  89. 870 DATA 139,6,9,17,17,17,17,17,14,1,1,1
  90. 880 DATA 139,7,25,241,17,17,17,17,14,0,0,0
  91. 890 DATA 139,6,9,17,17,17,17,17,18,8,0,0
  92. 900 DATA 139,6,9,17,17,17,22,25,225,1,0,0
  93. 910 DATA 139,6,9,21,21,21,21,21,9,1,2,0
  94. 920 DATA 139,0,7,24,48,80,144,144,144,128,128,64
  95. 930 DATA 75,1,25,37,37,37,37,38,24,0,0,0
  96. 940 DATA 139,3,60,200,16,16,16,19,14,0,0,0
  97. 950 DATA 139,0,0,0,6,25,65,1,1,2,0,0
  98. 960 DATA 139,0,2,1,1,1,1,6,56,128,0,0
  99. 970 DATA 139,3,60,200,8,20,18,33,32,0,0,0
  100. 980 DATA 139,1,1,2,28,242,2,1,1,1,2,0
  101. 990 DATA 139,19,12,16,16,16,12,16,16,19,12,0
  102. 1000 DATA 139,16,19,12,16,16,16,18,13,1,1,0
  103. 1010 DATA 139,0,6,9,17,17,17,17,18,12,0,0
  104. 1020 DATA 75,3,12,52,36,36,36,36,36,24,0,0
  105. 1030 DATA 139,0,6,9,17,17,21,21,18,13,1,0
  106. 1040 DATA 139,1,22,24,16,16,16,22,25,1,1,0
  107. 1050 DATA 139,1,2,6,9,17,17,19,13,1,1,0
  108. 1060 DATA 139,1,17,18,60,210,18,17,17,1,2,0
  109. 1070 DATA 139,0,6,25,1,1,1,6,25,1,1,0
  110. 1080 DATA 139,0,24,6,1,1,2,4,8,16,0,0
  111. 1090 DATA 139,6,25,1,1,6,1,1,1,6,24,0
  112. 1100 DATA 139,1,17,10,4,10,17,17,1,0,0,0
  113. 1110 DATA 75,1,25,37,5,5,5,6,24,32,0,0
  114. 1120 DATA 139,1,19,19,21,21,25,25,16,0,0,0
  115. 1130 DATA 139,60,66,129,153,165,165,165,129,129,66,60
  116. 1140 DATA 139,0,0,0,0,255,255,0,0,0,0,0
  117. 1150 DATA 139,255,129,161,189,161,129,165,189,165,129,255
  118.